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informática na sociedade moderna não se limita às atividades científicas ou 

de pesquisa. Ela atinge todos os setores ou atividades profissionais, 

transformando-se em uma ferramenta poderosa e eficiente para todos os usuá- 

rios. Nesse sentido, a CP — Computadores Pessoais vem desenvolvendo com- 

petentes equipamentos, colocando à disposição da sociedade a mais avançada 

tecnologia em computação. Para a área da Educação, ela desenvolveu o 

DIDATA, sistema utilizado com surpreendentes resultados no Colégio San- 

to Américo. 

Mas, dependendo da necessidade do usuário e do software adequado, os com- 

putadores pessoais podem ter qualquer tipo de função: de um inteligente pro- 

fisssonal a um divertido jogo. Nesta temporada de Fórmula 1, por exemplo, 

o CP 500 vai às pistas para apostar na Lotus, enquanto que um CP 400 CO- | 

LOR ajuda nas comunidades agrícolas da região amazônica. Mas estes são 

apenas alguns exemplos do que pode fazer a informática. Na verdade, sua 

utilização é ilimitada e cumpre um papel histórico no desenvolvimento cien- 

' tífico e tecnológico. 

Dai a responsabilidade da indústria nacional, que tem à sua frente o desafio | 

de fazer com que o Brasil deixe, a médio prazo, o Terceiro Mundo e passe 

a conquistar os beneficios de uma sociedade que controla as tecnologias da | 

informação. | 
Carlos Roberto A. Gauch 
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CURSOS 


BASIC — Cepe — Centros de Proje- 
tos Especiais do Instituto Santa Amá- 
lia. Objetivos: preparar programador 
em linguagem BASIC, interpretar e al- 
terar programas existentes no merca- 
do e desenvolver pequenos sistemas. 
Av. Jabaquara, 1673 — São Paulo — 
telefone: (011) 276-3369, 


Linguagem e Software — Instituto 
Compucenter de Informática. Cur- 
sos de extensão universitária ou pa- 
ra profissionais de todas as áreas de 
atuação, estudantes e interessados em 
informática. Rua Bela Cintra, 746 — 
1º andar — São Paulo — telefone: 
(011) 255-2091, 


Operação e Programação — Sed Cur- 
sos. Cursos, para adultos e crianças, 
de operação, linguagem, programação 
e análise. Rua Loefgren, 1227 — São 
Paulo — telefone: (011) 549-8902. 


Operação e Linguagem — Instituto 
Italiano Eugênio Montale. Cursos pa- 
ra adultos e crianças. Operação, lin- 
guagem, programação e análise. Ave- 
nida Angélica, 688 — São Paulo — te- 
lefone: (011) 66-9199, 


COBOL, FORTRAN — Fundação 
Armando Alvares Penteado (FAAP) 
— CPD. Vários cursos de extensão 





Protexto 


Possuo um CP 500 com dois drives e 


gostaria de mais informações sobre o 
software Protexto, principalmente so- 
bre Carta Padrão, pois não há nenhu- 
ma explicação no manual de operação 
desse programa. 


Luis Tadeu M. A. da Silva 


Rio de Janeiro — RJ 


Caro Luis, com o Protexto você tem 
um dos melhores editores de textos na- 
cionais — o que permite várias opções 
de edição. No caso da Carta Padrão, 
siga estas instruções: digite sua carta, 


universitária, programação e análises 
em BASIC, COBOL, FORTRAN, 
Rua Itatiara, 226 — São Paulo — te- 
lefone: (011) 826-4233. 


Planilhas Eletrônicas — Programa: 
Introdução, Conceitos Básicos, Co- 


mandos do Supercale, Técnicas Avan- 


çadas. Data: 20 a 23 de maio. Taxa 
de inscrição: 30 ORTN's. Compucen- 
ter Microinformática. Telefone: (011) 
255-5988. 


Banco de Dados — de 22 a 24 de maio 


— ADP Systems — Divisão de Ensi- 


no. Programa: Introdução, Gerência 
de Arquivos, Modelos de Dados, Sis- 
temas de Gerência de Banco de Dados, 
Projeto e Administração de Aplica- 
ções, Tendências de Pesquisas e Desen- 
volvimentos de Banco de Dados. Lo- 
cal: Centro de Convenções Rebouças 
(Avenida Rebouças, 600 — São Pau- 
lo). Taxa de inscrição: 50 ORTN's. 
Inscrição pelo telefone: (011) 223-7511. 


DBASE — De 29431 de maio. Cur- 
so de dBase II. Horário: das 9:00 às 
17:30. Servimec — Rua Correa dos 
Santos, 34 — Bom Retiro — São Pau- 
lo — telefone: (011) 222-1511. 


Especializações — ABACE — Asso- 
ciação Brasileira de Administração e 
Conservação de Energia — oferece 
os seguinte cursos: Robótica, Auto- 
mação, Controle de Processos CAD/ 
CAM, nos“dias 16 e 17 de maio; e In- 


normalmente, mas reserve espaço pa- 
ra as variáveis, que deverão estar limi- 
tadas por barras (/). De um nome para 
este arquivo e grave. Depois, abra um 
novo arquivo para as variáveis. Mas, 
atenção: as variáveis deverão, também 
neste arquivo, estar limitadas por bar- 
ras (/). Grave este novo arquivo. Abra 
novamente o arquivo da carta. Em 


seguida, acione os comandos & F. 
Seu computador pedirá o arquivo a 
que você quer unir sua carta. Digite, 
então, o nome do arquivo das variá- 
veis. Pronto: apora é só dar o coman- 


do & P, para a impressão, Veja o 
exemplo abaixo: 


Arquivo 1 Arquivo 2 
/nome/ /Luis/ 
fempresa/  /XX/ 
fendereço/  /XXX, XX/ 
(cidade/ /Rio de Janeiro/ 
(texto) (variáveis) 
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o 


terfaces e Periféricos para Microcom- 
putadores, nos dias 20 e 21 de junho. 
Maiores informações: Avenida Paulis- 
ta, 2073 — Horsa | — cj. 1020 — São 
Paulo — telefone: (011) 285-2490. | 


EVENTOS 


Expo Soft 85 — A exposição será rea- | 
lizada em São Paulo, de 24 a 26 de ju- 
nho no Centro de Convenções Re- | 
bouças. Durante o evento, estarão ex- | 
postos produtos e serviços como soft- 
ware de base, software aplicativo para | 
qualquer computador, serviços de ti- 
me sharing, birôs de serviços, consul- 
torias e editoras. 


VY Congresso da Sociedade Brasilei- 
ra de Computação e XI Conferência 
Latino-Americana de Informática — 
Esses eventos têm a promoção da Uni- 
versidade Federal do Rio Grande do 
Sul e da SBC. Serão realizados em 
Porto Alegre de 20 a 27 de julho pró- 
ximo. 


27º Salão Internacional de Componen- 
tes Eletrônicos — Será realizado em | 
Paris, de 4a 8 de novembro próximo, 
no Parque de Exposições de Paris- 
Nord. No Brasil, os interessados po- 
derão contatar a Promosalons — Rua 
Araquan, 63 — São Paulo. 


e h 
Comandos utilizados: 
wo Q = para gravação 


(w F = para unir texto com variáveis 


Ow P = para impressão. 


Importante: em nenhuma outra parte 
de seu texto, você poderá utilizar o ca- 


ractere (/). 


Software CP 400 COLOR 





'Sou um novo assinante desta revista. 


Possuo um micro CP 400 e envio-lhes 
esta carta para parabenizá-los pelo su- 
| cesso da Geração Prológica e em se- 


gundo lugar para solucionar algumas 
dúvidas que possuo: 
1. O CP 400 é compatível com qual 


modelo de TRS 80, em termos de soft- 


ware? 
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2. Gostaria de saber se programas pa-| 
ra o CP 500 podem ser convertidos pa- 


ra o CP 400. Se isso for possível, gos- 
taria que publicassem na GP as prin- 


cipais diferenças do CP 500 para o. 


CP 400. 
3. Pelo fato de o CP 400 ser um no- 


vo micro no mercado, eu não possuo | 
muitos programas, por isso, sugiro que | 


publiquem mais software na revista. 
Anderson Rodrigues Campos 
Belo Horizonte — MG 


Caro Anderson, agradecemos o elogio 
e esperamos que a nossa revista esteja 
sempre à altura de suas necessidades. 
Quanto às suas dúvidas, informamos 
que o CP 400 COLOR é compatível 
com o equipamento TRS 80 norte- 
americano. A diferença entre o CP 400 
eo CP 500 é que o microprocessador 
de um é completamente diferente do 


outro: o microprocessador do CP 500 | 


é o Z-80, e do CP 400, o 6809E. So- 
mente com um estudo muito profun-: 
do dos dois computadores pessoais 
será possível converter programas de 
um equipamento para outro. Por isso, 
fica difícil especificar algum programa 


da Geração Prológica que não neces- * 


site modificações. 

Quanto à publicação de programas 
para o CP 400 COLOR na GP, desde 
o número 11, estamos publicando uma 
média de três softwares para este com- 
putador pessoal em nosso Encarte Es- 
pecial de Programas. Em breve, você 
terá tantas listagens para o COLOR 
como já tem para os outros CPs, 


As funções dos CPs. 


Tomei conhecimento desta conceitua- 
da revista através de um amigo pes- 
soal, que possui um CP 300. Dada a 
seriedade técnica e editorial desta pu- 
blicação, gostaria que os senhores me 
informassem qual o melhor equipa-! 
mento que devo adquirir, pois esta é 
a minha intenção, dentro das seguin- 
tes características: sou professor, e gos- 


| taria de utilizar o microcomputador na 
| minha profissão. Além disso, tenho 
| três filhos adolescentes e gostaria de 


iniciá-los na informática, porém,.ne- 
nhum de nós nunca teve acesso a estes 
equipamentos. Quais as melhores es- 
colas do mercado e como poderei me 
tornar um assinante da revista Gera- 
ção Prológica? 

Alfredo Gomes Nusi 

São Paulo — Capital 





Prezado professor Alfredo, a informá- 
tica é uma das mais eficientes e pode- 
rosas ferramentas para qualquer ati- 
vidade profissional. Na área da educa- 
ção, especificamente, as experiências 
demonstram a eficácia em sua utiliza- 
ção. Neste número da Geração Prolo- 
gica publicamos uma matéria com o 
Colégio Santo Américo, que tem uti- 
lizado com muito sucesso a computa- 
ção. No seu caso, sugerimos que o 
senhor solicite uma demonstração na 
CP — Computadores Pessoais, dos 
computadores CP 300, CP 400 CO- 
LOR e CP 500. Estes três equipamen- 
tos, cada um dentro de suas caracte- 
rísticas, são poderosas ferramentas da 
informática. Com qualquer um destes 
equipamentos, o senhor terá acesso a 
editores de textos, banco de dados, 
planilhas eletrônicas, aplicativos edu- 
cacionais e jogos. Quando às escolas, 
na seção Agenda, publicamos uma re- 
lação de estabelecimentos que dão cur- 
sos de operação, linguagem, BASIC 
etc. Para se tornar nosso assinante, 
basta preencher e nos enviar o cartão 
específico dessa revista. Boa sorte! 


— Umidade x CP 400 | 


Gostaria de receber informações acer- 
ca dos cuidados que deverei ter com o 
meu microcomputador CP 400, a fim 
de que não seja danificado com a umi- 
dade, já que o clima onde resido é bas- 
tante úmido no outono e inverno. 
Alexandro Pastore 
Caxias do Sul — SP 


Caro Alexandro, o CP 400 COLORÍ 
não necessita de cuidados especiais | 
com relação à umidade; mas, de qual- 
quer forma, você poderá colocar den- 
tro da embalagem (quando guardá-lo) 
um pouco de Silica Gel. Este produto 
retira a umidade excessiva do ambiente. 






ERRATA 


No programa “Como Gerar Som 
no CP 500/300"", publicado na 
Geração Prológica nº 8, há um er- 
ro na linha 60100. Onde diz: | 
IF PEEK (16 396) = O THEN... | 
corrija para: 

IF PEEK (16 396) = 201 THEN... 













PROGRAMAS DISPONÍVEIS NO MERCADO 





O seu computador pessoal pode ter a função que 
você desejar: um profissional editor de textos, um 
técnico em números e fórmulas, um doméstico 
controlador de estoques ou agenda e até mesmo um 
divertido e inteligente jogo. Para isso, basta utilizar 


O software é considerado a “inteli- 
gência”” dos computadores e de seus 
periféricos, pois sem ele as máquinas 
não desempenham nenhuma função 
útil. Mas o contrário também é verda- 
deiro: sem um corpo (hardware), o 
software perde sua utilidade. Somen- 
te juntos, hardware e software, é pos- 
sivel um sistema completo de compu- 
tação. Mas o fundamental é que a re- 
lação entre os usuários € O seu compu- 
tador se faz através do software. 

Quando o usuário quer se utilizar 
do computador, ele precisa de um soft- 
ware que permita a perfeita interação 
usuário-hardware. Logo, a função que 
o usuário irá destinar ao seu equipa- 
mento dependerá do software que ele 
utilizar. Dai a importância do conhe- 
cimento dos mais variados programas 
existentes no mercado, compatíveis 
com o seu computador, para você ana- 
lisar suas necessidades e escolher o pro- 
grama adequado. 

Os equipamentos da CP — Compu- 
tadores Pessoais (CP 200, CP 300, CP 
| 400 COLOR e CP 500) possuem a mais 
| poderosa e variada biblioteca de soft- 
wares disponiveis no mercado. Por Is- 
so, sua utilização abre possibilidades 
às mais variadas funções: desde o la- 
zer e função doméstica até funções 
| profissionais. Dai a importância do 
trabalho das software houses: elas de- 
senvolvem e comercializam a grande 
maioria dos programas disponíveis no 
mercado. 
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o software adequado. 


PEEK & POKE 
e o CP 400 COLOR 


Com o CP 400 COLOR, por exem- 
plo, você tem várias possibilidades, 
tanto pelo poderoso hardware como 
pelo amplo pacote de softwares desen- 
volvidos. 

No número 11 da Geração Prologi- 
ca, publicamos os endereços de várias 
software houses que comercializam 
programas para seu computador pes- 
soal. Neste número, publicamos umas 
lista de software, para o CP 400 CO- 
LOR, que você poderá encontrar na 
Peek & Poke (Avenida Brigadeiro Fa- 
ria Lima, 1664, cj. 1101 — São Paulo). 


ARTISTA: Editor Gráfico. Aplicati- 
vo que permite desenhar telas de alta 
resolução com o uso de Joysticks ou 
das setas do teclado. Mistura gráficos 
e texto (fixo ou em scroll). Permite a 
gravação, leitura e encadeamento de 
telas. Requer 32 K de memória. 


CALC400; Planilha eletrônica com 
256 linhas e 256 colunas. Aplicativo 
que permite a inserção de dados numé- 
ricos, strings ou fórmulas. Grava e lê 
as planilhas, imprime parciais e dispõe 
de recursos como somatória e funções 
trigonométricas. Requer 32 K de memó- 
ria. 

PPTEXTO; Processador de textos. In- 


clui recursos de edição, como inserção 
e delete de letras ou trechos de textos, 


formatação, acentuação em português; 
utiliza tela de 51 colunas por 24 linhas 
(opcional 64 ou 85 colunas), com 
maiúsculas e minúsculas. Requer 64 K 
de memória. 
EXPANSOR DE TELA: Utiliza a al- 
ta resolução do CP 400, modificando 
a tela, que passa a ter 51 colunas e 24 
linhas. Pode ser usado em conjunto 
com qualquer programa BASIC. 


SUPERTEC: Reconfigura o teclado, 
onde cada tecla passa a valer por uma 
palavra-chave BASIC. Inclui numera- 
ção automática de linhas e uma tecla. 
programável. Agiliza muito a digitação 
de programas BASIC. Roda em 16 k. 


COLOR EDTASM; Editor Assembler 
e monitor em um só sistema. Utiliza os 
64 K de RAM do CP 400. Usado para 
o desenvolvimento e depuração de pro- 
gramas em linguagem de máquina. 


GEOGRAFIA E Programa educativo, 
elaborado em linguagem de máquina. 
Utiliza os recursos de alta resolução 
para testar o conhecimento dos Esta- 
dos e Capitais do Brasil. Requer o uso 
de joysticks e roda em computadores 
com 16 K, 


JOGOS: Tubarão, Defesa, Besouro, 
Pássaros, Perereca, Helicóptero, Espa- 
cial, Sideral, Demônios (para 16 K); 
Cuber, Armadilha, Gorila, Missão Lu- 
nar, Zaxxon (ver Geração Prológica nº 
11), Outhouse, Grand Prix, Ataque, 
Quix e Submarino (para 32 K). 
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MIADATEA 


REPORTAGEM DE CAPA sus 


'APOSTE 





O Brasil deu a largada para o gran- 
de show de perícia, emoção e veloci- 
dade do Campeonato Mundial de Fór- 
mula 1, na temporada de 85. A infor- 
mática, que há tempos vem aceleran- 
do os Grandes Prêmios com a compu- 
tação de dados, tomou partido nesta 
temporada e está apostando na Lo- 
tus/John Player Special de Ayrton 
Senna e Elio de Angelis. 

As apostas estão sendo feitas atra- 
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vés do CP 500 e um software especifi- 
co, desenvolvido pela CP — Computa- 
dores Pessoais, numa promoção con- 
junta com a Souza Cruz e Rede Ban- 
deirantes. 

O mais importante é que essa pro- 
moção é totalmente democrática: qual- 
quer pessoa pode participar, apostan- 
do em que lugar chegará o carro da 
Lotus. Como existem dois carros, va- 
le sempre a melhor posição, ou do 


NA LOTUS 








Nesta temporada de 
Fórmula 1, a informática 
sai dos bastidores e 
aposta na Lotus 

de Ayrton Senna, em - 
todos os Grandes Prêmios, 
com o CP 500. 





Ayrton Senna ou do Elio de Angelis. 

A cada GP, os apostadores que 
acertarem o lugar de chegada da Lo- 
tus concorrerão a vários prêmios e, no 
final da temporada, os sorteados de ca- 
da corrida concorrerão, mais uma vez, 
a prêmios especiais. 

O próprio Ayrton Senna tentou a 
sorte fora das pistas. Antes do Gran- 
de Prêmio Brasil, em Jacarepaguá, ele 
apostou que chegaria em 1º lugar. Mas 
deu azar na 50º volta, seu carro que- 
brou por defeitos na parte elétrica. No 
entanto, quem apostou no 3º lugar 
acertou, pois Elio de Angelis subiu ao 
pódium na terceira posição. 

Já no Grande Prêmio de Portugal, 
em Estoril, da pole-posicion ao primei- 
ro lugar no pódium, Ayrton Senna bri- 
lhou com a conquista de seu primeiro 
GP. Quem acreditou em Senna, apos- 
tou e ganhou. 





Em todos os Grandes Prêmios da 
temporada de 85, você terá oportuni- 
dade de apostar na Lotus nos postos 
de apostas de São Paulo, Campinas e 
Rio de Janeiro. 

Em São Paulo, você terá um CP 500 
à sua disposição nos seguintes locais: 
Shopping Norte, Shopping Iguatemi, 
Shopping Eldorado, FMU — Faculda- 
des Metropolitanas Unidas — e Cur- 
so Anglo. Em Campinas, no Shopping 
Iguatemi; e no Rio de Janeiro, também 
nos principais pontos de comércio. 






Nestes locais, haverá sempre um 
responsável pelas apostas e pela correta 
utilização do computador. Mas isso 
nem seria preciso, pois o programa 
utilizado pelo CP 500 é muito simples. 
O apostador só precisará digitar seu 
nome, endereço completo, telefone e 
aposta. 


O participante poderá escolher en- 
tre 7 opções: do 1º ao 6º lugar ou a 
aposta O, que significa qualquer outra 
posição que não conte ponto para o 
campeonato. 

Estas apostas ficam gravadas em 
disquetes (900 apostas por disquete) e 
são enviadas para a CP — Computa- 
dores Pessoais, responsável pelo ar- 
mazenamento, gravação e sorteio com- 
putadorizado. 

Como a promoção APOSTE NA 
LOTUS permanecerá durante toda a 
temporada de Fórmula 1, as apostas, 
a cada Grande Prêmio, poderão ser 
feitas uma semana antes da corrida e 
o sorteio será realizado sempre uma se- 
mana depois, aos domingos e ao vivo 
no Show do Esporte, pela TV Bandei- 
rantes. 
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A cada Grande Prêmio será rea- 
lizado três sorteios entre os acerta- 
dores. Primeiro é sorteado o disquete 
e, depois, os números das apostas acer- 
tadoras, pois o programa desenvolvi- 
do pela CP seleciona as apostas cor- 
retas contidas nos disquetes, automa- 
ticamente. 

Entre os apostadores vencedores se- 
rão sorteados os seguintes prêmios: 
uma moto Honda, uma TV a cores e 
um computador pessoal. 

Mas os prêmios não param por aí: 
no final da temporada, os acertadores 
premiados a cada Grande Prêmio con- 
correrão a mais prêmios: um Ford Es- 
cort JPS, um aparelho de TV com 
videocassete e câmera, uma viagem a 
Itaparica, com uma semana de hospe- 
dagem no Club Mediterranée, um con- 
junto de rodas magnésio, um conjunto 
de bancos para automóvel e um teto 
solar para automóvel. 








No Grande Prêmio Brasil, a primei- 
ra corrida da temporada 85, mais de 
40 000 pessoas fizeram suas apostas. 
Apesar de o carro de Ayrton Senna ter 
quebrado na 50º volta, Elio de Ange- 
lis conquistou o 3º lugar no pódium. 
E é justamente isso que vale: o melhor 
lugar conquistado por um dos dois car- 
ros Lotus/John Player Special. 

Dos 40 000 apostadores, 23,80% 
acertaram, apostando no 3º lugar. O 
sorteio desse Grande Prêmio foi reali- 
zado no Show do Esporte de 14 de 
abril próximo passado. 

Os ganhadores foram: 

1º Prêmio: CP 200 S — Disquete nº 
7, aposta nº 498 — Dorival Apareci- 
do Galon — Osasco — São Paulo. 

2º Prêmio: TV a cores — Disquete 
nº 8, aposta nº 403 — Fernando de 
Carvalho — Capital — São Paulo. 
3º Prêmio: Moto Honda — Disque- 
te nº 6, aposta nº 256 — Manoel Mo- 
rais — Campinas — São Paulo. 
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CALENDÁRIO DE 1985 


— GP do Brasil, Jacarepaguá 
abril... GP de Portugal, Estoril 


maio 

maio 
qunno 
itriaçejo O 
junho 
IUINO 
julho 
agosto. 


agosto 


GP de San Marino, Imola (Itália) 

GP de Mônaco (rua) 

GP da Bélgica, Spa-Francorchamps (rua) 
GP do Canadá, Gilles Villeneuve, Montreal 
GP de Detroit, EUA (rua) 

GP da França, Paul Ricard 


GP da Grã-Bretanha, Silverstone 
GP da Alemanha, Hockenheim ou Nurburgring | 
agosto. — GP da Austria, Osterreichring 


GP da Holanda, Zandvoort 


setembro GP da Itália, Monza 
setembro... GP de Nova Iorque, Flushing Meadows (rua) 


outubro 


GP da Europa, Mugello (Itália) 


novembro GP da Austrália, Adelaide (rua) 
novembro — GP da A frica do Sul, Kyalami 
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mas, principalmente, pela necessi 


s adesões ao CLUBE CP's têm 
sido surpreendentes. Não só pelo número de interessados, 


ade de 


informações dos usuários, quer seja 





quanto a hardware ou software. 


Neste número, atendemos alguns de nossos sócios. 


Disco Rígido 

Luis Alberto Cavalcanti, possuidor 
de um CP 500 e engenheiro em Reci- 
fe, quer mais informações sobre discos 
rigidos. 

Luis, os discos rígidos podem ser 
encontrados nos tamanhos de 5 1/2 e 
8 polegadas: Sua capacidade de arma- 
zenamento varia de 5 a 70 megabytes, 
dependendo do seu tamanho, da den- 
sidade e do formato de gravação. O 
disco em si é uma unidade rígida, re- 
coberta por um material magnético de 
alta qualidade. O cabeçote se desloca 
sobre o disco para ter acesso às suas 
trilhas, exatamente como no sistema de 
disco flexivel. Contudo, o disco é lu- 
brificado. O conjunto composto pelo 
disco e pelo cabeçote é hermeticamen- 
te fechado num gabinete plástico a fim 
de evitar a infiltração de sujeira e con- 
taminadores. Essas unidades de disco 
são chamadas de Winchester. 


A alta qualidade do meio de grava- 
ção, a alta velocidade de rotação (nor- 
malmente de 3 600 rpm) e a ausência 
de problemas de alinhamento do cabe- 
cote, associadas a elementos removi- 
veis, tais como disquetes, garantem aos 
discos rígidos um número maior de tri- 
lhas (até 600) e uma maior densidade 
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de gravação. Isso faz com que os dis- 
cos rigidos tenham duas vantagens 
principais sobre os disquetes: maior ca- 
pacidade de armazenamento e menor 
tempo de acesso aos dados. Uma uni- 
dade de armazenamento Winchester 
comum, com um disco de 8 polegadas, 
pode armazenar 8,4 milhões de bytes. 

Essa foi uma explicação geral, Luis. 


Aguarde para O próximo número, uma | 


matéria específica sobre o CP 
500/Winchester. 


Software para a Medicina 


O pediatra Carlos Nogueira de Al- 
meida, do Rio de Janeiro, pediu infor- 
mações sobre onde encontrar um 
programa para sua clinica. Além des- 
se software especifico, o doutor Car- 
los também precisa de um editor de 
textos e um programa Mala Direta. O 
doutor Carlos só esqueceu de informar 
qual o seu equipamento! 

No entanto, como você está com 
muita pressa (boa sorte na inaugura- 
ção da nova clínica!), o CLUBE CP's 
selecionou algumas software houses, 
para solucionar seu problema. Se o seu 
equipamento for um CP 500, procure 
a Nasajon Sistemas (Avenida Rio 
Branco, 45 — grupo 1311 — Rio de 
Janeiro). Eles possuem o Cadastro de 


Clientes para Clínicas Médicas, o 
Emissão de Mala Direta, o Mala Di- 
reta com Editor de Textos, entre ou- 
tros. Mas, se Ó seu equipamento for o 
CP 400 COLOR, procure o Color 
Club (Caixa Postal 9079 — Rio de Ja- 
neiro) e a Kristian Eletrônica (Rua 
Gonzaga Bastos, 112 — Rio de 
Janeiro). 


Planilha Eletrônica 
Ricardo Soares, engenheiro agrôno- | 
mo de Manaus, possuidor de um CP 
400 COLOR, precisa de uma planilha 
eletrônica. O Ricardo foi bem claro, 
quanto a um problema: não tem con- 


| dições financeiras para comprar um | 


software nos próximos meses. “Mas 
este programa ajudaria muito o meu 
trabalho junto às comunidades agrico- | 
las aqui da região”, escreveu Ricardo. | 

Dada a importância social do tra- 
balho do engenheiro, a software hou- 


| se Peek & Poke, de São Paulo, cedeu 
| uma planilha eletrônica — o MINI 
| CALC — para veiculação no CLUBE. 


Por falta de espaço, publicamos o pro- 


“grama no Encarte Especial de Progra- | 
'mas deste número da Geração 


Prológica. Todos aqui'do CLUBE, de- 


sejamos muita sorte ao engenheiro Ri- 
| cardo e às comunidades agricolas. 








ANÁLISE E CRIAÇÃO 


DE UMA MALA DIRETA 


PARTE II 


Controle sobre o número 


de registros gravados no arquivo. 


No número anterior, nós vimos o 
início do cadastramento e a critica da 
entrada de dados. Veremos agora co- 
mo efetuar o controle sobre o número 
de registros gravados no arquivo. 

O arquivo randômico pode ser usa- 
do de duas maneiras distintas: uma, 
como se fosse um arquivo sequencial, 
istO é, com acesso aos registros em se- 
quência numérica; a outra, com aces- 
so aleatório pelo número do registro. 

Vejamos a primeira maneira: pa- 
ra um acesso sequencial, necessita- 
mos criar uma variável contadora, que 
permite fornecer a cada registro um 
número inteiro (variável inteira do 
BASIC, cujo símbolo é %), que pode 
variar de 1a 32.767. E sempre conve- 
niente que esta variável seja inicializa- 
da com o valor 1, pois a cada gravação 
ela poderá ser incrementada, como ve- 
remos a seguir. Para o início do cadas- 
tramento, não há nenhum problema, 
pois basta, no começo do programa, 
colocarmos uma linha do tipo: 


15 1X% = 1 


e a cada gravação, incrementamos tal 
variável fazendo IX% = IX% + 1. Mas 
como poderíamos, numa outra oca- 
sião, continuar a gravação do nosso ar- 
quivo? Existem várias maneiras. A 
mais simples é a utilização do primei- 
ro registro do arquivo como armaze- 
nador do número de registros (indice) 
já gravados no arquivo. 
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Para isso, devemos usar um peque- 
no truque, que é criar um FIELD, es- 
pecial para este registro em particular, 
pois ele será diferente de todos os ou- 
tros do arquivo. Mas devemos ain- 
da contornar outro problema: e quan- 
do o arquivo não possuir nenhum re- 
gistro gravado (arquivo novo)? E fá- 
cil. Basta um teste para verificar se O 
arquivo se encontra em seu final (tes- 
te de EOF). 


Vamos a um exemplo: 


10 CLEAR 2000: CLS: ' RESERVA ES- 
PACO DE STRING E APAGA A TELA 
20 IX% = 1 

30 OPEN “R”, 1, “ARQUIVO/DAT”, 110 
40 FIELD 1, 2 AS IX$, 108 AS ZZ8$ 
45 FIELD 1,30 AS NO$, 40 AS ENS, 13 
AS TL$, 20 AS CD$, 2 AS ES$, 5 AS 
CPS 

50 GET 1, IX% 

60 IF EOF (1) THEN 70 ELSE IX% = CV] 
(1x3) 

70 ' CONTINUACAO DO PROGRAMA 


Ora, neste exemplo nós temos os 
2 FIELDS para o mesmo arquivo. 
Quando vamos utilizar a nossa variá- 
vel índice, lemos o registro e usamos 
a variável IX$; quando for um regis- 
tro normal, lemos da mesma maneira 
e usamos as outras variáveis (do segun- 
do FIELD). É importante notar que 
ambos os FIELDS têm o mesmo tama- 
nho lógico, isto é, 110 bytes, sendo 
portanto a variável ZZ$ sem nenhuma 


utilidade (variável DUMMY) — a não 
não ser para compatibilizar os dois res 
gistros. Quando fazemos o GET 1; 
[IX% (lembre-se que IX % = | na linha 
20), testamos se o arquivo está vazio 
ou não. Se estiver vazio (EOF verda- 
deiro), o IX% continuará com o va- 
lor 1, senão, à IX% será atribuído O 
valor (numérico) de IX$, que é o núy- 
mero de registros do arquivo. 

Finalmente, não podemos esquecer 
que, ao encerrarmos a gravação do ar- 
quivo (dados normais), devemos gras 
var o número de registros na primeira 
posição do mesmo arquivo, da seguin- 
te maneira: 


300 MX% =1:' NUMERO DO REGIS: 
TRO A SER GRAVADO 

310 LSET IX$ = MKIS$ (1X%): * CONVER: 
TE O VALOR DE IX% EM STRING EO 
TRANSFERE PARA O FIELD (BUFFER) 
320 PUT 1, MX%: ' GRAVA O REGIS: 
TRO NUMERO 1 (VALOR DE MX%4) 
330 CLOSE 

340 END 


O valor de IX% é o novo número 
de registros do arquivo, que será gra- 
vado na mesma posição do anterior, 
solucionando, assim, o problema de 
aumentar o número de registros do ar- 
quivo e manter um controle total so- 
bre isto. 
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CURSO DE BASIC 


LIÇÃO VII 


A sub-rotina é um pequeno programa 
inserido no programa principal. Esse é 
um dos conceitos que Marilena Occhini 

Siviero explica nessa importante lição de 
BASIC: o conceito de sub-rotina. 


Muitas vezes, em uma programa- 
ção, um trecho de programa se repe- 
te. Escrevê-lo constantemente torna a 
tarefa maçante e ineficiente, porque o 
trecho repetido, cada vez que isso 
corre, ocupa novas posições de me- 
mória. O que fazer? A solução é sim- 
ples. Imagine o trecho de programa 
como sendo uma caixa com um nome, 
por exemplo, 300. 

Quando o computador ler uma ins- 
trução que o mande para a caixa 300, 
ele pára de executar o programa prin- 
cipal, vai à caixa, executa o conteúdo 
da caixa e retorna ao programa prin- 
cipal, Caso seja necessário, ele, em ou- 
tro ponto do programa, voltará à caixa 
300. A este procedimento damos o no- 
me de sub-rotina. 

A sub-rotina é um pequeno progra- 
ma inserido no programa principal. 
Em BASIC, a instrução que manda o 
computador executar uma sub-rotina 
é a instrução GOSUB. A sub-rotina é 
precedida por um número de linha e 
está localizada no final do programa, 
sempre após a instrução END ou 
STOP. A instrução RETURN marca 
o fim da sub-rotina, indicando ao 
computador que ele deve retornar ao 
programa principal, na linha seguinte 
à da instrução GOSUB. 

A sub-rotina é identificada pelo seu 
número de linha ou por um nome for- 
necido pela instrução REM, que pode 
aparecer na primeira linha da sub- 
rotina. 
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Abaixo, um exemplo do programa 
que calcula a média de um grupo de 
alunos: 


10 REM CALCULO 
DERADA 

20 DATA 8, 3,3, 10, 1.5,2,2,0,0,5.7,3.9, 
1,9, 6.3, 10, 3.5 

30 REM LEITURA DAS NOTAS DE TESTES 
40 FOR |=1 TO 4 

50 READ N(I) 

60 NEXT | 

70 REM CHAMADA DA SUB-ROTINA DE 
CALCULO DE MEDIA ARITMETICA DOS 
TESTES 

90 GOSUB 330 

100 LET M1 = X1 

110 REM LEITURA DAS NOTAS DE PROVA 
120 FOR |=1 TO 4 

130 READ N(I) 

140 NEXT | 

150 REM CHAMADA DA SUB-ROTINA DE 
CALCULO DE MEDIA ARITMETICA DAS 
PROVAS 

170 GOSUB 330 

180 LET M2 = X1 

190 REM: CALCULO DA MEDIA PON- 
DERADA 

200 LET F = (M1 + 2ºM2)/3 

210 REM IMPRESSAO FINAL 

220 PRINT “MEDIA FINAL"; X; “="" E; 
2390 IF F> = 5 THEN PRINT “APROVA: 
DO!!!" ELSE PRINT “REPROVADO" 

240 LET X = X + 1 

250 IF X>2 THEN GOTO 300 

260 PRINT 

280 PRINT 

290 GOTO 40 

300 END 

310 REM SUB-ROTINA PARA O CALCULO 
DAS MEDIAS ARITMETICAS DE PROVAS 
E TESTES 

330 LET X1 =0 


DA MEDIA PON- 


o 


340 FOR I = 1TO4 
350 LET X1 = X1 + Níl) 
360 NEXT | 

STO LET X1 = X1/4 

380 RETURN 


Na linha 90 do nosso programa, 
ocorre a chamada de uma sub-rotina; 
a sub-rotina de cálculo da média arit- 
mética dos testes. O motivo de usá-la 
neste programa é que a mesma será uti- 
lizada novamente na linha 170, para 
cálculo da média aritmética das pro- 
vas. À razão para isso é simples: o nú- 
mero de provas e testes é o mesmo € 
o processo de cálculo também, 

Outro fator a ser reparado: a sub- 
rotina foi escrita logo após a Instrução 
END. Se isso não ocorresse, O compu- 
tador continuaria seguindo o progra- 
ma, executando novamente a 
sub-rotina e acusando erro ao encon- 
trar a instrução RETURN. 

Um outro uso para a sub-rotina é 
fazer pequenos trechos de programa, 
que são normalmente usados em vários 
programas diferentes. Um exemplo 
disso é o cálculo de fatorial. A sub- 
rotina é simples. Observe: 


900 REM SUB-ROTINA PARA CALCU- 
LO DO FATORIAL DE N 

1000 LET F = 1 

1010 FOR = TO NILE ER = 
1020 NEXT | 

1030 RETURN 


Se num determinado programa 
principal precisarmos do fatorial de A, 
deveremos incluir as instruções: 


100 LET N = À 
110 GOSUB 900 
120 PRINT F 


Podemos ter, então, um “arquivo” 
de sub-rotinas e, quando precisarmos 
de uma delas, é só pesquisar e inclui- 
la no programa, com as devidas mo- 
dificações (número de linhas e nome de 
variáveis). Sugerimos que você use pa- 
ra isso um caderno ou, se seu compu- 
tador pode gravar programas em fita, 
disquete ou disco; reserve uma fita ou 
trecho de um disco ou disquete para es- 
tas sub-rotinas. 
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DA 


INFORMATICA 


URSS 


na Intelsat 







A União Soviética so- 
licitou sua adesão à Or- 


“| em contar com uma tec- 
nologia mais avançada 
| no campo das telecomu- 
| nicações, pois o seu sis- 
tema Intersputnik tem 


deficiências nas comu- 
| nicações internacionais 
J via satélite. 


EMES GAMBMASIOLA 


Não são só os norte- 
formam a ficção em 


BE des fabricantes de com- 
| putadores do Japão 
| (Nec, Hitachi, Matsu- 

| = shita e Uniden Corpora- 
tion) estão financiando estudos destinados a ex- 
plicar cientificamente as atividades paranormais, 
pois consideram que fenômenos como a telepa- 
tia e o sexto sentido desempenharão, no futuro, 
um papel fundamental no desenvolvimento das 
telecomunicações. 
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ganização Internacional 
de Telecomunicação 
por Satélite — Intelsat 
—, a qual agrupa 109 
países de todo o mun- 
do. A iniciativa se deve 
| a necessidade da URSS 


demonstrado algumas 















realidade: os gran-4 





SEE sa ú 
E 


Metropolitanos de São Paulo 
7 istems ICrOocOmPpuU- | 
está implantando no metrô um sistema E oe 
tadores para oferecer uma nova fonte de im or RA 
usuários do transporte. De acordo com O e : da 
mino Afonso, OS micros serão de uso pesca a 
vista a implantação de 70 a AR par | 
IE duçã icros trará uma nç 
| introdução dos mi tr DBa EIA E CC ato) 
| vel dos funcione lo 
ompanhia, tanto à ni do: a 
etários a estes últimos podendo obter E e 
| através do acesso à um terminal do siste : 


PRONET 


NO PARANÁ Os deputados paranaenses 





A Secretaria de Negócios 


agora dispõem de mais 
tempo. E que a 
Assembléia Legislativa do 
Paraná adquiriu uma rede 
Pronet com 8 micros 
Super 700 da Prológica e 
5 impressoras P-720, 
instalando um sistema 
pioneiro que vai agilizar 
os trabalhos de controle e 
emissão de 

| correspondência, 
administração legislativa, 
apoio técnico e controle de 
processos. 


SELFIMAUVRICIO 





presidente do Serpro, José Dion 
de Melo Teles, recebeu o título de 
“Personalidade de Informática de 
1984”, conferido pela Associação 
Nacional dos Dirigentes e Execu- 
tivos de Informática — Andei. 
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BIOCHI 


Pode parecer ficção, mas 
não é. No futuro, os compu- 
tadores poderão ser opera- 
dos pelo cérebro humano, 
através dos impulsos dos 
nervos. Para tanto, os cien- 
tistas norte-americanos estão 





uma 
ficção? 


trabalhando em uma espécie 
de biochip, um circuito inte- 
grado desenvolvido pelo de- 
partamento de bioengenharia 
do Instituto Tecnológico de 
Massachussetts, principalmen- 
te para utilização na medicina, 


A VOZ DOS ROBÔS 


A sintetização de voz pa- 
ra robôs ganha nova dimen- 
são com o lançamento de 
dois CIs da General Instru- 
ment Corp. 

Um é o integrado alofó- 
nico SPO256A-A 12, que de- 
sempenha todas as funções 
de sintese. Ao contrário dos 
sintetizadores fonêmicos, 
que armazenam somente 
uma versão de cada som, es- 
se integrado produz até três 
variantes de vários fonemas, 
O que importa num discurso 
sintético mais inteligível. 

O outro é o microproces- 
sador de 8 bits CTS256A- 
Al2 que controla o endere- 
camento alofônico tendo co- 
mo base um conjunio de 400 
regras de tradução fonêmi- 
ca. À medida que o usuário 
introduz o texto em caracte- 
res ASCII, o algoritmo de 





tradução efetua a varredura 
do código, examina os con- 
textos da esquerda para a di- 
reita e consulta a tabela de 
tradução dos endereços alo- 
fônicos apropriados. 


INTELIGÊNCIA 
ARTIFICIAL 


A inteligência artificial 
ainda é uma área da informá- 
tica inacessível ao hobista. 
Há, porém, algumas tentati- 
vas de popularização. 

Uma delas é o GCLisp da 
Gold Hill. Esse pacote con- 
tém uma versão mais sofisti- 
cada do interpretador GCLisp, 
um compilador GCLisp e 
uma ótima documentação, 

Desenvolvido a partir da 
Lisp, a linguagem mais popu- 
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lar da inteligência artificial, 
ele é capaz de endereçar até 16 
megabytes de memória física 
e explorar toda a capacidade 
computacional do PC-AT, 
Os PC-ATs com, no miíni- 
mo, 3 megabytes de memória, 
um disco rígido de grande ca- 
pacidade, um co-processador 
matemático 80287 da Intel e 
um monitor de vídeo em co- 
res constituem a configura- 
ção ideal para essa máquina. 





A democratização das informações no Brasil 
nunca esteve tão próxima como agora, com a via- 
bilização dos vários bancos de dados e o início das 
operações do primeiro satélite doméstico brasilei- 
ro, o Brasilsat. 

Hoje, além dos conhecidos Videotexto e Ciran- 
dão, os usuários de microcomputadores também 
podem ter acesso ao banco de dados do governo, 
via telefone: o sistema Aruanda, o banco de dados 
elaborado para tornar públicas as informações co- 
letadas por órgãos do governo, também pretende 
democratizar suas informações. 

Este sistema está instalado nos computadores da 
1º URO (Unidade Regional de Operações) do Ser- 
pro, em Brasília, que realiza o serviço de processa- 
mento de dados de ministérios e grande número de 
órgãos públicos. Nesta unidade, estão armazena- 
das milhares de informações que, se organizadas ra- 
cionalmente, podem ser abertas para uso da 
sociedade, atendendo às mais diversas finalidades: 
pesquisas acadêmicas, empresariais e sindicais, en- 
tre outras. 

Se O seu equipamento de computação já inclui 
um modem para conectar o micro ao telefone, vo- 
cê já pode utilizar o sistema Aruanda, discando via 
DDD para o número do Aruanda, no Distrito Fe- 
deral, e obter informações contidas em mais de dez 
bases de dados, como: nomes, endereços, CGC e 
outros dados sobre cerca de 2 milhões de empresas 
reunidas pelo Cadastro Nacional de Empresas 
(CNE), informações numéricas econômico- 
financeiras sobre 146 países membros do Fundo 
Monetário Internacional (FMI) e sobre algumas en- 
tidades relacionadas com o órgão, além de várias 
outras informações. Também a partir do Aruanda 
você poderá ter acesso à lista de todos os softwares 
nacionais ou estrangeiros registrados junto à Secre- 
taria Especial de Informática — contidas na base 
Prosoft. 

As informações contidas no Aruanda são orga- 
nizadas através do software gerenciador de bases 
de dados Adabas, o que permite uma linguagem 
conversacional com o usuário, durante os acessos 
de pesquisa. O sistema tem capacidade para 200 ba- 
ses de dados e, além de prestar o serviço de consul- 
tas, o Serpro pode dar também tratamento às 
informações de fornecedores, organizando-as em 
bases de dados relacionais. 

Para Adval Rabello, diretor do Desenvolvimen- 
to de Sistemas do Serpro, as informações coleta- 
das pelos Órgãos de governo são públicas e a 
democratização do acesso às mesmas deve ser sem- 
pre ampliada, acompanhando o processo de demo- 
cratização do Pais. 





Neste número, a seção Dicas irá concentrar-se em um tópico 
muito importante para os programadores em BASIC: a veloci- 
dade. O CP 500 e o CP 300 usam o microprocessador Z-80, que 
é muito rápido, para não dizer um dos mais rápidos na catego- 
ria de 8 bits. Assim sendo, deduzimos que, para agilizarmos o 
BASIC, devemos unir suas vantagens, aquelas da programação 
em linguagem de máquina, tornada possível por meio das roti- 
nas USR. 

Nesta edição, veremos uma aplicação especial dessas rotinas, 
para a qual não será necessário conhecimento prévio de coman- 
dos do processador Z-80: mostraremos uma sub-rotina escrita 
em linguagem ASSEMBLY, sendo que, se houver disponibilida- 
de de um EDITOR-ASSEMBLER, poderá ser chamada direta- 
mente após carregada e mostraremos também o resultado da 
sub-rotina convertida para o BASIC, tudo comentado em deta- 
lhes. A partir daí, a imaginação do programador irá expandir 
esse pequeno universo que tentamos mostrar aqui. 

Escreveremos um programa contendo uma curta sub-rotina, 
que possa copiar o conteúdo da posição O (zero) do vídeo para 
as outras 1023 nele existentes; por exemplo, se imprimirmos “X” 
na posição 0, a chamada desta sub-rotina irá encher a tela com 
“Is 

Eis O programa: 
aoaio: ENTELA /!! SUB-ROTINA PARA ENCHER A TELA 


00030 ORG OFFFOH | ORIGEM INICIO 

00040 LD HL,15360 |: HL APONTA PARA O 
00050 LD DE,15361 | DE APONTA PARA 1 
00060 LD BC,1023 | REPETIR 1023 VEZES 
00070 LDIR | HL P/ DE. REPETIR 
00080 RET |: RETORNAR (AO BASIC) 
00090 END 


A linha 30 especifica a origem da rotina USR; FFFO está 16 
bytes aquém do final da memória RAM do CP 500 (CP 300); 
as linhas 40 até 80 contêm a sub-rotina propriamente dita. Car- 
regamos o registrador HL com o endereço do primeiro byte da 
tela do CP 500/300, e o registrador BC com 1023. O comando 
LDIR copia o byte “setado”, ou seja, apontado por HL para 
a posição apontada por DE; adiciona | para HL e DE e subtrai 
| de BC. Isto será repetido até que BC seja igual a zero, o que 
significa que o conteúdo do primeird byte da tela foi copiado 
1023 vezes, posição após posição; a linha 80 contém o comando 
RET, similar ao RETURN do BASIC; se este programa foi “cha- 
mado” pelo BASIC por meio de USR, o RET fará com que o 
programa (em BASIC) continue sendo executado a partir da pró- 
xima instrução após a chamada USR; finalmente, a linha 90 co- 
loca o END, obrigatório em ASSEMBLY. 

Uma vez digitado, o programa deverá ser assemblado e pra- 
vado. Quando isto ocorrer, cada linha de instrução irá gerar po- 
sições de memória e mnemônicos, a saber: 


10 
20 
FFFO 30 
FFFO 21003C 40 
FFF3 11013 50 
FFF6 O1FFO3 60 
FFF9 EDBO 70 
FFFB c9 80 
90 


00000 TOTAL ERRORS 


Suponhamos que essa rotina tenha sido gravada com o nome 
de “ENTELA”"; isto feito, poderá ser executada diretamente do 


12 





DOS500 Ativo, por meio do comando LOAD ENTELA 
<ENTER>. 

Vamos, finalmente, ao BASIC. É importante reservar espa- 
ço na memória para a sub-rotina carregada por LOAD. Olhan- 
do novamente a listagem, vemos que o programa tem sua origem 
na posição FFFO, que corresponde em decimal a 65520 (ou -16), 
que deverá ser o valor digitado em relação ao tamanho de me- 
mória (Memória Usada?). Em BASIC, podemos comprovar is- 
so digitando: 


PRINT &HFFFO <ENTER>, ou ainda melhor 
PRINT 65536 + &HFFFO <ENTER>. 

Uma vez em BASIC, nosso programa precisa especificar o en- 
dereço inicial da sub-rotina USR, o que se faz por meio do co- 
mando DEFUSR, que poderia ser: 


10 DEFUSRO = &HFFFO ou 10 DEFUSR = &HFFFO 


Para ver o resultado dessa sub-rotina, utilizamos um peque- 
no programa, que poderá ser assim: 
10 DEFUSRO = &HFFFO 
20 PRINTOO, “X” 

30 J = USRO (0) 
40 PRINTO932," 

Ao rodarmos o programa, instantancamente a tela será “en- 
chida”” com “*xis”, ou seja lá qual for o caractere contido na li- 
nha 20. Lembre-se de que com a instrução POKE as opções 
aumentam. 

Em BASIC, a solução é “POKAR” a sub-rotina na memó- 
ria. O próprio microcomputador pode fazer isso para nós. Veja- 
mos a lista de mnemônicos gerados na listagem do programa 
assemblado: o primeiro valor é 21. Se digitarmos: 
PRINT&H21 <ENTER> veremos 33 

Se consultarmos o manual de operações do CP 500/300, ve- 
remos que para os valores mencionados na listagem do progra- 
ma assemblado (sempre encontrados) em HEXADECIMAL, 
teremos as equivalências: 


21 = 39 11. =47 01 = 1 ED = 2937 
DO = 0 01 =41 FF = 255 BO = 176 
3C = 60 3C = 60 039 =3 C9 = 201 


que usaremos em BASIC, numa linha de instrução DATA, 
Uma das formas de se escrever o programa é esta: 


10 DEFUSRO = &HFFFO 

20 DATA 33, 0, 60, 17, 1, 60, 1, 255, 3, 237, 176, 201 
30 FORI=1T012: READD: POKE&HFFFO + |, D: NEXT 
40 INPUT “ENCHER COM CHRS$":X 

50 PRINTOO, CHAS (X) 

680 J = USRO(O) 

70 PRINTO 932," 


A linha 20 especifica os 12 bytes da sub-rotina USR, que se- 

rão colocados na memória através da instrução POKE contida 
na linha 30, dentro do Joop nela existente; a linha 40 recebe o 
número do caractere na posição O do vídeo; a linha 60 faz a cha- 
mada da rotina USR e a linha 70 irá colocar o cursor na posição 
correspondente ao valor ''(w" especificado. 
"* Rápido, não? Agora já é possível a utilização de rotinas em 
linguagem de máquina em nossos programas BASIC. Este pro- 
cedimento pode ser padronizado para todas as sub-rotinas que 
desejemos “POKAR” na memória, em linguagem de máquina, 
a fim de agilizar sobremaneira o BASIC (disco). 

De acordo com a imaginação do programador, as sub-rotinas 
poderão incluir sons, desenhos com caracteres especiais, desvios 
etc., até um total de 10 por programa BASIC (disco), que serão 
definidas com DEFUSRO até DEFISR9. 

No próximo número, daremos continuidade a estas informa- 
ções. Na verdade, será uma dica da dica. Aguarde! ! 


P. Fulvio G. Del Picchia 


GERAÇÃO PROLÓGICA 


REPORTAGEM 


COLÉGIO SANTO AMÉRICO 








A relação educação/informática é levada muito a 
sério no Colégio Santo Américo, em São Paulo. Pa- 
ra desenvolver a utilização dessa nova ferramenta edu- 
cacional, o reitor do colégio, dom Gabriel Iroffy, 
criou o Departamento de Informática para supervi- 
sionar toda as atividades computadorizadas da esco- 
la. Sob a direção do professor Rudolf Riederer, estas 
atividades são realizadas com o Sistema DIDATA, 
da CP — Computadores Pessoais, para as aulas de 
BASIC, programação, provas das matérias regulares 
e recreação, além da área administrativa, que se uti- 
liza do Sistema 700, da Prológica. 

Apesar das aulas de BASIC ainda serem opcionais, 
três turmas de 32 alunos cada se revezam, na sala es- 
pecial de informática, para aprender esta nova lin- 
guagem e desenvolver programas nas horas ociosas. 
Mas, a partir do ano que vem o BASIC se tornará obri- 
gatório no currículo do Colégio Santo Américo, não 
só para os estudantes da 5º série até o 3º colegial mas 
também para os alunos do primário. 

Para tanto, o professor Rudolf Riederer vem de- 
senvolvendo programas adequados e específicos pa- 
ra cada ano escolar e área educacional, além dos 
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O Sistema DIDATA do Santo Améri- 
co forma uma rede com um CP 500 
(computador central), dezesseis CP 
300 (terminais de aluno) e uma impres- 
sora P 720. 


o a 


trabalhos por disciplina e bateria de testes. Atualmen- 
te, os alunos já realizam estas baterias de testes por 
disciplina, agilizando tanto as atividades dos profes- 
sores como dos próprios estudantes, pois o progra- 
ma desenvolvido pelo professor Rudolf permite 
opções de testes, dentro da mesma disciplina, para 
todos os envolvidos. Estas opções são aleatórias, sen- 
do que a escolha é realizada pelo próprio computa- 
dor — eliminando o fantasma da “cola”. 
Segundo o professor Rudolf, a implantação da in- 
formática no Colégio Santo Américo vem alcançan- 
do o sucesso esperado, pois os estudantes respondem 
a este novo estímulo de forma entusiástica. Tanto que, 
para fregiientar a sala de informática na hora do re- 
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creio, precisam de ''senhas””, pois o número de com- 
putadores não comporta todos os interessados. 

Mas a informática no Colégio Santo Américo não 
se limita a programações curriculares. O reitor dom 
Gabriel, apaixonado pelos computadores, tem idéias 
mais avançadas para sua utilização. “O computador, 
por enquanto, é somente uma ferramenta. Mas que- 
remos mais que isso. Vamos tornar a informática um 
meio educacional; para tanto, estudamos e desenvol- 
vemos softwares mais específicos” — afirma dom 
Gabriel. 

“Principalmente — continua — porque o re- 
torno dos alunos e a retenção de informações são mui- 
to maiores com a computação como meio de 
aprendizado”. 

A partir deste princípio, o Colégio Santo Améri- 
co também fará parte do Videotexto e do Cirandão, 
para utilização do banco de dados, além da forma- 
ção de um clube de usuários do Santo Américo com 
os pais que possuem computadores pessoais, para co- 
municações, relatórios e boletins escolares. 

Além destas funções, dom Gabriel está muito in- 
teressado nas aplicações musicais do computador. 
Com um CP 500, ele tem realizado, através de soft- 
ware específico, ensaios com o coral do colégio, per- 
mitindo as mais complexas variações de tons em 
tempos recordes. 

Por enquanto, o Departamento de Informática tem 
apenas um Sistema DIDATA. No entanto, o reitor 
e o professor Rudolf planejam uma ampliação des- 
tas salas, já que as aulas de BASIC farão parte do 
currículo escolar. Para as salas de Educação Artísti- 
ca e primário, eles pretendem utilizar o CP 400 CO- 
LOR, devido à necessidade de cores e desenhos 
gráficos. 
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DIDATA 


O Sistema DIDATA, utilizado no Colégio Santo 
Américo, é uma eficiente e poderosa ferramenta pa- 
ra a área educacional — abrindo novas possibilida- 
des para ensino e aprendizagem. 

Conectado a um computador central, um CP 500 
com dois drives, e até a 16 computadores auxiliares 
(CP 500 ou CP 300), também chamados de ““termi- 
nal de aluno”, este sistema salva, carrega ou impri- 
me arquivos, programas e dados do aluno — 
permitindo que todos os terminais acessem a impres- 
sora e os drives do computador central. 

A partir dessa rede, o Colégio Santo Américo de- 
senvolveu vários softwares específicos, adequados às 
exigências das necessidades dos alunos. Além dos soft- 
wares do colégio, os próprios alunos também têm 
oportunidade de desenvolver seus programas, como 
é o caso de Fábio Casagrande, do 2º ano colegial, 
que desenvolveu o programa “Atravessando o Rio”. 


COMPOSIÇÃO 


O Sistema DIDATA possui três componentes prin- 
cipais: o próprio DIDATA, um computador central 
(CP 500) e dezesseis terminais de aluno (CP '300 ou 
CP 500). Mas, assim-como fez o Colégio Santo Amé- 
rico, é possível expandir esta configuração, acrescen- 
tando, por exemplo, uma impressora ligada ao 
computador central. 

A utilização do DIDATA é extremamente simples, 
uma vez que todo o sistema é controlado por soft- 
ware, restando apenas uma chave que pode selecio- 
nar o Modo de Controle Automático ou Programado. 

Para a utilização da impressora, o DIDATA se uti- 
liza do Sistema Spool: todas as requisições para im- 
pressão vindas dos terminais de aluno são enviadas 
ao computador central, que verifica se a impressora 
está disponível. Se estiver, a impressão é efetuada nor- 
malmente. Caso contrário, o central armazena os da- 
dos a serem impressos em um arquivo de Spool e os 
envia à impressora somente quando esta estiver li- 
berada. 
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As possibilidades da computação são imensas, desde que 
você saiba escolher os equipamentos adequados às suas ne- 
cessidades e explorar todas as capacidades de hardware e 
software. No caso da impressora P 500, por exemplo, pou- 
cos sabem de sua capacidade de operação ponto a ponto 
no modo gráfico, com qualquer microcomputador, mes- 
mo que ele não seja gráfico. 

Esta possibilidade da P 500 pode ser efetivada através 
de comandos enviados pelo micro, configurando assim a 
impressora no modo gráfico ponto a ponto, e, a partir dai, 
controlar uma ou todas as 6 agulhas de impressão para 
se obter gráficos em alta resolução. 

Os comandos necessários para se conseguir tal perfor- 
mance são os seguintes: 


COMANDO InrciMAL |' 


<ESC> <%> O |27,37, 48 |Ativa o modo gráfico. 

| Ambos ou isoladamente provocam o 
salto de linha no modo gráfico. 

Sai do modo gráfico ponto a ponto. 





|<LF> ou <CR> |10 ou 13 


<ESC> <CR> 


É importante saber que, quando a impressora P 500 es- 
tiver configurada no modo gráfico ponto a ponto, não se- 
rá possível imprimir caracteres comuns. 


CODIGOS DECIMAIS 
O controle das agulhas é feito através de códigos deci- 
mais enviados à impressora, sendo que cada agulha tem 
um valor próprio. Por isso, o código necessário para acio- 
nar um certo conjunto de agulhas é obtido pela soma dos 
valores das agulhas que se quer imprimir e, a esse total, 
adiciona-se 32. 


Explicando: 
(Valor) (Valor) 
1º agulha | 4º agulha 8 
2º agulha 2 5º agulha 16 
3º agulha 4 6º agulha 32 
o 
o 
Se você quiser imprimir este conjunto: ê 
[1 
o 
Eri o 


é necessário somar Ê |l+4+ 16+4 32 =53, 


[] 
Õ 
portanto, o código será 53. 
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A seguir, apresentamos uma tabela com os códigos De- 
cimais e Hexadecimais de todas as combinações possíveis 
com as 6 agulhas. 





| o Mb MH e ND2H oMD2MHM eNDIH ocMDAMH eNDUH oazDmMH sa39DNH 
1 o o o o ; : Ê o 
4 e a tã (e ú ã & É 
5 o [a o D D [e [é [e 
& a] a] [a] =] o [a] a] a] 
Vo ocdMDMaAo o e4MDH o4D2aHo o4D2BH osMb2cH o edD2DH o sSDIZEH e «4ID2FH 
6 ; é : ; : : 
| . ] =. s a a e LO] 
5 | [e] õ õ õ õ o o 
b q [e õ [e õ õ õ o 
I o db MM e 490 MH o 00 32H Su nHo asa . 51D 35H o MD MH SSD ITH 
3 o o A o - ; : 
E õ õ E õ a] a) [=] 
, o» = * = * = = +. 
5 [e õ õ õ Ee] En] E 
| o SD MH e SDMWH oagsEsDIAH . 590 J8H o GD ICH * 6IDIDH o 6D3EH a 61DIFH 
ao o o : : ê E S 
Lo» = - = * . Õ E] 
ãJ +» = = = = O + + 
& ao o e] o õ D õ o 
1 o Da o - BDA4AM o DAM + SDAH o odcDaMHalDAHMomDAsH as iDAH 
jo o o : : E E E 
|] o [+] [e] +] & [=] [o] 5 
5 | õ o Er Ee] õ õ D 
bo = = + a * + = 
| oo TDAH + 7Db49H oTUDA4AAH se TDABH oCFEDACH o» TIDADH o FEDAEH + 79D4FH 
o - c a à : ; E 
4 +» - “ = * s * = 
5 õ õ E B [e] o a 
b * * = : & + s 
oo ROD SOM + BIDSH o BD 9H e BDSH o oMDbskHasBDSSHoeoEDãkSHÕialBlDASH 
o s : : : : ; : 
E a] nu) e] 6) [8 q a [| 
5 E] = “ & a a s 
b = = - & O a * 
| o BBDSSH o + $9D 59H o GHDS5AH + SD5SBH o MDICH a 9D3DH o G94DSEH «+ MD3FH 
Ls, o [e] a a 
3 | 5 ; E a é Õ . 
4 = = = = + à . 
4 » = E] = “ + a 
bo a a . = + + * 
Para enviar estes códigos para a impressora, quando 
se estiver trabalhando em BASIC, deve-se utilizar o 
comando: 
LPRINT CHRS$(x) 
onde x é o código que se deseja enviar. 
Além de todas estas possibilidades, vale ressaltar que 
a impressora P 500 pode ser configurada para quatro ti- 
pos de caracteres, resultando em quantidades diferentes 
de pontos por linha: 
Caractere Comprimido/Expandido ... 420 pontos/linha 
Caracicre EXDPANGIÃO cusssaiasenaasiem 240 pontos/linha 
Caractere: INOFIDAL  ipssmasasarssras sas sãe 480 pontos/linha 
Caractere: Comprimido: .assssassesesessss 840 pontos/linha 
Jo 
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do Rotinas 
||, matemáticas em 


e 


E chato! Sem dúvida uma das maiores in- 
coerências com que qualquer usuário de micro 
se depara: de posse de uma poderosa ferramen- 
ta da avançada sociedade de informática, te- 
mos que nos ver humilhados por horas 
digitando aqueles intermináveis programas dos 
livros e revistas especializados, sendo que o 
computador sempre dispõe de uma forma mui- 
to mais prática para carregar os programas; no 
mínimo, uma entrada para gravador cassete. 

Então, estava mais do que na hora das edi- 
toras começarem a se atualizar e lançarem ver- 
sões gravadas de suas obras. E claro que o livro 
ainda é indispensável (e não me arrisco a dizer 
que sempre será!) para nos dar aquelas infor- 
mações suplementares que uma listagem, por 
mais comentada e user-friendly, não consegue 
absorver, 

A Editora Campus dá o primeiro passo nesse 
sentido, lançando a série “Software” que, além 
dos já conhecidos livros do tipo coleção de pro- 
gramas, dispõe de cópias dos programas em fi- 
ta, vendidas separadamente. 

Os dois livros que chegam às nossas mãos 
são o Rotinas Matemáticas para Micros, 232 
páginas, de Caetano R. A. Loiola, e o Desa- 


fio: Os Mais Excitantes Jogos em BASIC, 254 


páginas, de Antonio Julio Botelho. Os dois são 
bem escritos e de fácil assimilação e trazem pro- 
gramas para a linha Sinclair que podem, com 
alguma habilidade, ser convertidos para outros 
micros. 

Sem dúvida, essa iniciativa inaugura uma no- 
va etapa na literatura nacional de informática 
e esperamos que a tendência persista. 





Evoluindo no BASIC TK, de 
Bernardo Stein, 136 páginas, 
Editora Nelph. 





Na tentativa de abordar 
com uma objetiva diferente 
o aparentemente exaurido fi- 
lão de programas para a li- 
nha Sinclair (pelo autor 
chamada linha TK), Stein 
consegue reprisar alguns 
clássicos para esta linha com 
maestria, dando consistência 
à sua obra. Deve ser lido por 
aqueles que pretendem o 
máximo de informações so- 
bre o seu microcomputador, 
sendo dispensável aos pro- 
gramadores experientes. 


ESÇÃO (n-m-p) 

Um Computador NÃO-Von 
Neumann, de Wagner Wa- 
neck Martins, 268 páginas, 
Editora Cartgraf. 





Este livro expõe as bases 
do projeto de uma máquina 
não-Von Neumann, cuja 
principal característica é a 
capacidade de processamen- 
to simultâneo. Com. essa 
obra, o professor Waneck 
divulga as bases de sua pes- 
quisa em busca dos compu- 





tadores de quinta geração. 
Uma leitura indispensável 
para quem quer se manter a 
par da evolução dos micro- 
computadores. 





O Seu Micro e o Mundo Ex- 
terno, de Bernhard Wolf- 
gang Schôn, 128 páginas, 
Editora Nelph. 


Es TE a 
poa SE MES 


P 
x 
Eee: 
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Uma série de periféricos 
muito bem selecionados, in- 
cluindo aplicações impres- 
cindíveis de bancada, como 
o gravador de EPROMS ou 
o analisador lógico de 24 ca- 
nais, Excelente para o “ki- 
teiro”'. Apesar/ de ser 
baseado na linha Sinclair, o 
detalhamento dos projetos 
permite fácil adaptação às 
demais famílias de micros. 





Curso Intensivo de Micro- 
computadores, de Louis E. 
Frenzel Jr., 336 páginas, 
Editora Técnica Eletrônica 
— Editele. 
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Numa mesma «obra, três 
excelentes cursos sobre com- 
putadores: visão geral, hard- 
ware e software. 
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O CP200Séo parceiro curtir os mais divertidos jogos 


Ob professor ideal ideal dos iniciantes. de vídeo-game. 
Com ele você 
Dara OS iniciantes desenvolve as primeiras 
[ | tação. 
No mundo da pato sold 
| | | Iver tarefas 
informática.  SSdissau simesmente 





MICROCOMPUTADOR=COLOR 





QUEM TEM UM, TEM FUTURO. 


VOCÊ TEM QUE ESTAR PREPARADO 
PARA SE DESENVOLVER COM OS 
NOVOS TEMPOS QUE ESTAO AÍ. EO 


POR QUÊ? 
PORQUE O CP 400 
COLOR É UM 


CP 400 COLOR É A CHAVE DESSA COMPUTADOR 
EVOLUÇÃO PESSOAL E PROFISSIONAL. PESSOAL 
DE TEMPO 


INTEGRAL: ÚTIL id 
PARA A FAMÍLIA TODA, O DIA 
INTEIRO. 

NA HORA DE SE DIVERTIR, POR 
EXEMPLO, E MUITO MAIS 
EMOCIONANTE PORQUE, ALÉM DE 
OFERECER JOGOS INÉDITOS, 

É O ÚNICO COM DOIS JOYSTICKS 
ANALÓGICOS DE ALTA 
SENSIBILIDADE, QUE PERMITEM 
MOVIMENTAR AS IMAGENS 
EM TODAS AS DIREÇÕES, MESMO, 
NA HORA DE TRABALHAR E 
ESTUDAR, O CP 400 COLOR MOSTRA 
SEU LADO SÉRIO: MEMÓRIA 
EXPANSÍVEL, PORTA PARA COMU- 
NICAÇÃO DE DADOS, SAÍDA PARA 
IMPRESSORA E UMA ÓTIMA NITIDEZ 
COM IMAGENS COLORIDAS. 

COMO SE TUDO ISSO NÃO 
BASTASSE, A PROLÓGICA AINDA 
OFERECE A GARANTIA DE 
QUALIDADE DE QUEM E LIDER NA 
TECNOLOGIA DE COMPUTA- 
DORES, E O PREÇO MAIS ACESSÍVEL 
NA CATEGORIA. 

NUMA FRASE: SE VOCÊ NÃO 
QUISER CHEGAR ATRASADO AO 
FUTURO, COMPRE SEU CP 400 
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= PLANILHA ELETRÔNICA 


— MINICALC 


MINICALC é um programa BASIC 
que exerce a função de planilha eletrô- 
nica. Em linhas gerais, MINICALC é 
um modelo simplificado de planilhas 
mundialmente conhecidas como 
VISICALC e outras. O objetivo do pro- 
grama naturalmente não é substituir as 
planilhas mais sofisticadas programa- 
das em linguagem de máquina, mas sim 
fornecer uma opção barata para aplica- 
ções que não envolvam grandes quanti- 
dades de dados ou operações muito 
complexas. 

Uma planilha eletrônica pode ser 
comparada a uma folha de papel em 
branco dividida em linhas e colunas. 
MINICALC dispõe de 9 colunas e 43 li- 
nhas, totalizando 387 posições, chama- 
das de “células”, Determina-se a célula 
pela coluna e linha que ela pertence. As- 
sim, a célula 4,11 é a posição de cruza- 
mento da coluna 4 com a linha ll. 

A grande vantagem das planilhas ele- 
trônicas éa capacidade deter valores va- 
riáveis em algumas células, ou seja, 
algumas células são o resultado de fór- 
mulas que fazem referência a outras cé- 
lulas. Assim, se mudamos os valores das 
células originais, todas as células cujas 
fórmulas fazem referência às originais 
serão automaticamente recalculadas, 
No momento atual, quando tantos va- 
lores são calculados em função de indi- 
ces como ORTN, UPC e outros, 
MINICALC pode ser uma grande aju- 
da para muitos usuários de CP 400. 


COMANDOS 
O programa começa com a planilha 
em branco, com linhas de l a 13 ecolu- 
nas de 1 a 3. Em cima da tela você verá 
um sinal de maior “>” e o cursor no 
começo da linha. Esta é a linha de co- 
mandos, que são os seguintes: 


G — mnemônico de GOTO. Serve 
para ir à célula especificada no coman- 
do. Por exemplo, tecle G9,11 para pas- 
sar à célula 9,11 (coluna 9, linha 11). Use 
<ENTER> para voltar ao modo de 
comando. 

V— vera fórmula presente em algu- 
ma célula. Teclando-se V4,7, teremos o 
display da fórmula que você atribuiu à 
célula 4,7 (coluna 4, linha 7). Use qual- 
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quer tecla para voltar ao modo de 
comando. 

S — faz o “SAVE” dos dados em cas- 
sete. Após teclar o comando você deve 
preparar a gravação e digitar o nome do 
arquivo que será gravado. 

L — leitura de um arquivo previa- 
mente gravado em cassete. Você deve di- 
gitar o nome do arquivo que o programa 
deve procurar. 

P — imprime os dados presentes na 
memória. Você pode escolher a linha 
inicial e a linha final a ser impressa. 

X — saida do programa. Volta ao 
BASIC. Deve sempre ser usado. Não use 
<BREAK> para sair do programa. 

U — recalcula todas as posições que 
contenham fórmulas. Deve ser usado 
sempre que se alterar algum dado que 
entre nas fórmulas de outras células. A 
tela se desorganizará por alguns segun- 
dos, enquanto os cálculos estão sendo 
efetuados. 

F — entrada de fórmulas. 


ENTRADA DE DADOS 

Para a entrada de dados, basta teclar 
os dados na posição, Comece com o co- 
mando G para levar o cursor até a posi- 
ção desejada dentro da planilha. 

Os dados podem ser strings (titulos 
que contenham letras ou números) ou 
dados numéricos. Você pode entrar com 
até 9 dígitos por célula, Para facilitar a 
entrada de linhas de títulos, o cursor 
passa à próxima célula da mesma linha 
após a entrada do nono dígito ou carac- 
tere. Você pode usar a seta para a esquer- 
da para corrigir eventuais erros de 
digitação. 

Para finalizar a entrada de um dado, 
você pode usar: 

<ENTER>que o levará de volta ao 
modo de comando 


1 (seta para cima) para 
passar à linha anterior 
! (seta para baixo) para 
passar à próxima linha 
o (seta à direita) para pas- 


sar à próxima coluna 
<SHIFT> —(seta à esquerda) para 
passar à coluna anterior 
Você pode passar com o cursor pela 
planilha sem apagar o conteúdo das cé- 
lulas, usando as quatro setas. Quando 


não houver linhas na direção da seta te- 
clada, você voltará ao modo de coman- 
do. Por exemplo, se você estiver na 
coluna 1 e usar a seta à esquerda, você 
voltará ao modo de comando, pois não 
há linha 0. 

Estando numa célula e teclando-se 
qualquer tecla que não seja < ENTER > 
ou as setas, o conteúdo da célula será 
apagado e você deverá entrar com no- 
vo dado. 


FÓRMULAS 

Para começar, vejamos os conceitos 
de operandos e operadores nas fórmu- 
las. Na seguinte operação: 

| +4-—-2 
l,4e2são osoperandose'' +" e*t—? 
são os operadores. Nas fórmulas usa- 
das em MINICALC, os operandos po- 
dem ser o conteúdo de outra célula ou 
uma constante (valor numérico). As cé- 
lulas são indicadas pelos colchetes “*["", 
conseguido teclando-se < SHIFT > se- 
ta para baixo, e “*]'”, conseguido teclan- 
do-se <SHIFT> seta à direita. Entre 
os colchetes fica a designação da célu- 
la: colunaelinha separadas por virgula. 

As constantes devem estar delimita- 
das por“*< (sinal de menor) e “>” 
(sinal de maior). Assim, se você usar O 
comando F3,3 para determinar a fór- 
mula da célula 3,3 e teclar: 

[1,2] = eds 
o conteúdo da célula 3,3 será igual ao 
da célula 1,2 menos o valor 3.5. Lem- 
bre-se que o indicador de decimal é o 
ponto (não a virgula). 

Os operadores são sinais aritméticos 
normais: +, —,*e/. Ao contrário das 
fórmulas aritméticas normais, onde há 
uma precedência ou hierarquia de ope- 
radores, as fórmulas de MINICALC 
são calculadas na ordem em que se en- 
contram, da esquerda para a direita. 
Portanto, deve-se usar parênteses para 
indicar as operações que devem ser efe- 
tuadas antes: 

<12>+<3>*<2>=30!! 

<l2>T(<3>"<2>)=18 
Você pode usar vários níveis de parên- 
teses. 

Outro recurso frequentemente utili- 
zado em planilhas é a somatória de li- 
nha ou coluna. Você pode somar numa 
fórmula determinadas posições da linha 
ou coluna onde ela se encontra. Por 
exemplo, sena célula 4,11 (coluna 4, li- 
nha 11), você usar a fórmula: 

(27 
obterá a soma 
[4,2] + [4,3] + [4,4] + [4,5] + 
+ [4,6] + [4,7]. Usando: 

L1,3 
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obterá a soma [1,11] + [2,11] + [3,11]. 
Outros recursos são le A. Iindica nú- 
mero inteiro, ou seja, as casas decimais 
serão desprezadas, e A indica valor ab- 
soluto. Devem ser usados antes de pa- 
rênteses. Exemplos: 
I(<10>/<3>)=3 
A(<2.5> —- <13>)=10,5 
IA(<4.6>- <8>)=3 


O PROGRAMA 
Explicamos aqui de maneira sucinta 

a função de várias linhas de MINICALC: 

10-90 Inicialização, dimensionamen- 
to e preparação da tela. 
Espera e analisa um coman- 
do, Direcionamento do pro- 
grama. 
Interpreta comandos relati- 
vos a células (F, Ge V). 
Executa comando YV. 
Localiza posição da célula na 
tela. 
Entrada de dados. 
Entrada de fórmulas (coman- 
do F). 
Comando U. Recalcula todas 
as fórmulas. 
Comando S. Grava os dados 
em fita. 
Comando L. Leitura de da- 
dos do cassete, 
Parte da rotina de avaliação 
das fórmulas. 
Limpa a tela. | 
Escreve números de linhas. 
Comando P. Imprime os da- 
dos. 
Mudança de tela. Display de 


100-250 


260-320 


330-350 
360-370 


380-470 
480-520 


540-560 
570-620 
630-670 
680-730 
1740-780 
790-810 
820-860 


870-930 
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nova área da planilha, 
940- Rotina de retardo. 
950-1460 Avaliador de fórmulas. 


OBSERVAÇÃO 

Em certos tipos de aplicação, a lin- 
guagem BASIC tem a limitação da ve- 
locidade de execução, que chega às 
vezes a comprometer a eficiência do 
programa. MINICALC usa alguns re- 
cursos para superar este problema. O 
primeiro é a limitação de colunas e li- 
nhas. O segundo é o uso dos chamados 
POKEs de velocidade. Acessando-se 
certas posições de memória, podemos 
modificar a velocidade de processamen- 
to do computador para determinadas 
funções. Contudo, estes recursos não 
estão documentados pelo fabricante do 


CP 400€e, portanto, não são 100% ga-, 


rantidos, 

Ássim, se você não se incomodar 
em esperar mais alguns segundos para 
obter os resultados, ou se você ex- 
perimentar algum tipo de problema na 
execução do programa (o que dificil- 
mente acontecerá), retire as instruções 
POKE 65495,0 das linhas 10, 620, 660 
e 860 e a instrução POKE 65497,0 da 
linha 540. 

Note que as operações de impressão 
e de leitura ou gravação em cassete fi- 
cam prejudicadas com ambos os POKEs 

e, portanto, estes são desligados antes 
de estes comandos serem acionados, as- 
sim como na saída do programa (opção 
X). Por isso é importante não sair do 
programa com ouso de <BREAK >, 
pois o computador continuaria funcio- 


TaPOKEL161 + 50:FOKE 
PRINTE96, "Ns 
138 FORT=1TOLZ2:PRINTRIGHTS(STR$( 


nando irregularmente, impossibilitan- 
do todas as operações com cassete ou 
impressora. Por este mesmo motivo, 
desaconselhamos que se rode o progra- 
ma experimentalmente antes que o mes- 
mo esteja totalmente digitado e gravado. 

O POKE de supervelocidade (posi- 
ção 65497) altera até a saída de vídeo, 
embaralhando a imagem da televisão e 
por isso só foi usado no comando U, 
que recalcula todas as fórmulas do pro- 
grama, e que seria sensivelmente mais 
lento caso seu processamento fosse efe- 
tuado na velocidade normal do com- 
putador. 

Para desligar a velocidade extra 
(POKE 65495,0), usa-se a instrução 
POKE 65494,0 e para desligar a super- 
velocidade (POKE 65497,0) usa-se 
POKE 65496,0). 


CONCLUSÃO 

Esperamos que você faça bom uso 
de MINICALC, que apesar de simples 
é um programa extremamente útil pa- 
ra certas aplicações. No caso de se 
mostrar muito limitado devido à com- 
plexidade de operações ou quantidade 
de dados, você ao menos terá conse- 
guido conhecer o mecanismo das pla- 
nilhas eletrônicas, que são hoje a 
aplicação mais popular dos microcom- 
putadores, ao lado do processamento 
de textos e dos programas gerais de ca- 
dastro. 

Em caso de dúvida, consulte a Peek 
& Poke e conheça melhor a capacida- 
de de seu CP 400 e sua linha de pro- 
gramas profissionais. 
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1058 IFM$="(C"THENGI=T:NEXT 

1060 IFM$=")"THENGE=T:GOTOL1SB 
18728 NEXT 
1A8A IF Gl« 
1120 

1090 GUSUE 1180 

11608 LEÇXA, YA)=STRECVU SE TFLEFTÊCL 
$&(XA,YA),1)="! “"THENL$CXA, YAS=RIG 
IF U=6 THEN FRINTeF-1," 
HrsPRINTQE,L$SCXA, YA): 

1118 RETURN 

JL TScçXA,YAy=""ZFRINTOSE, "ERRO 


> AND Gê=b THEN GOTO 


NA FUNCAO"; :PRINTOP," Ha 
“AS=INKEYS: IFAS=""GOTOLLZOEILSERE 
TURN 


1158 IF Gl=b THEN GOTO 11460 ELSE 
IFGl=1THENI$="":GOTOl114DELSETI &= 
MIDSCÇIIS>G1l-1,1)2:1FTi$="TPTHENTS 
=4TMELSE IF T1$="APTHENI$S="QNELS 
ET qt 

ILHA LA=T8+MID$(ÇITS>G1l+1,GE-Gl-] 
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)sGOSUELLBA 


1150 
= 
1140 


LE TIL$&="AVORTLS=SNTUETHENGL=61 


LIL=LENÇIIS)-CA: LESLEFTÉÇITS 


ARA Eca bs ja ne a DRA CV Ta DARIGHTECLT 


Gs Li.) 


1174 
1180 
1198 
1206 


01496) 


la 16 
0764 


RP ARA F 
de Es a 


143580 
1240 
I&) 

1250 
1360 


1280 


GOTO lBS5A 
D=B:VcAB)=04EORT: 
Me=MIDECIS+T;1) 
TEM$="LUTHENXG="0eyg=0U0. GOT 


ITOLENÇIS) 


LEMb="2"THENKS=""ayg=00<GDT 
LEMS="L"DAMS$="CPTHENLS7A 
NEXT 
I=B:V=VcB):0=1]:FORT=ITOLENC( 


MeE=MIDE(ÇIS> 1,1) 
LEMe=" RP THENV=EVZY O, sG0TOILS 


LEMb="4+"THENV=V+V (O) :GOTOLS 


IEFM$=" 20 7THENIEFV(O)=0THENGO] 


OI IaVELSEV=VZV CO) GOTOISLE 


1290 


E 


iUVPl 


Prés i-) sLL=LENC E Ri - 


IEM$="-="THENV=V-V.0):G0TOLS 


LEMB=]UTUTHENI=T+1 
LEMb=]QUTHENT=I+A 


| NEXT 


IF T=] THENUSINT(V) 
IF I=2THENV=AES(V) 
IFT=3THENV=INT(DES(V)) 
GOTOL4SA 
FORT=2TOLENÇIS) 
LEMIDS(IS, To 1)='!, “THENT 
l 


1$=M 
ro Epá 


IDE(TS> Tri, Lilo :GOTOLL4AA 


1394 
iu 
1410 
1420 
1438 
146) 
14568 
1446 
1474 
1480 
1498 


NEXTT 

V=:t9 
IFmn$="C"THENGOTOIU4SO 
FORT=VAL(TIS)TOVAL (TAS) 
U=V+VALGLSCT:YH)) 
NEXTT:GOTOlL4SA 
FORT=VALÇTIS)TOVALC TAS) 
V=V+VALC(LECÇXArT)) 

NEXTT 

RETURN 
T=T+1:M$=MID$(I$,T;1)2IFhHh=s 


", PTHENÍS1O 


1508 


X$=X$+M$2 IFT>IBOTHENCGOTOLLE 


BELSEGOTOLUZEA 


1318 


T=T+L2:M$=MID$C(IS, Tr 1)2 FMSS 


VIP THENISSA 


1544 


Yê=Y$+M$: LFT>IBETHRENGOTOULI A 


GEI.SEGOTO1S1B 


1530 


XI=VAL(XS):YI=VALGY Evo 


VAL (L$(X1,Y1))2:0=0+12:60TULESA 


LSHA 


0=0+1 2: NEXTZRETURN 


— APLICATIVO 


Agenda Color 





Este programa foi desenvolvido pa- 
ra as pessoas que não querem nunca 
mais esquecer a data de aniversário do 
grande amigo ou da namorada, do no- 
vo endereço e telefone daquele repre- 
sentante comercial; ou lembrar, na 
última hora, que o caderninho de 
agenda ficou em casa ou no escritório. 
A partir de agora, use seu CP 400 pa- 
ra esta tarefa e armazene sua agenda 
em uma fita cassete. 

Com este programa, você pode ca- 


dastrar até 99 pessoas, com nome, en- 
dereço, telefone e data de aniversário; 
com possibilidade de alterações ou in- 
clusões. Mas cuidado para não cadas- 
trar mais que 99 pessoas, pois o progra- 
ma não aceitará um número superior. 


O nome e endereço devem ter até 30 


caracteres e o bairro até 20. 

Para gerar sua AGENDA COLOR 
ou atualizá-la, você deve usar o item 
Inclusão. Neste item e nos seguintes, 
a operação deve ser realizada através 


de códigos, que significam a posição 
em que se encontram os dados de uma 
pessoa especifica. 

No item Aniversariantes, você po- 
de consultar todos os aniversários de 
um mês em particular. Para voltar ao 
Menu Principal, pressione ENTER. 

Para salvar os dados, você deve ter 
o gravador no volume 2 e a leitura de 
dados deve ser realizada no volume 7. 
Depois da gravação ou leitura, o pro- 
grama volta ao Menu Principal. 


(GO (EKRKKXKKKKKKKKKAEXEKXRAXR RR 280 PRINTASgU+HS, "LP FIM DO FROG 
| ar RAMA" 
Ea REGOESN Da 290 PRINTESSU, “QUAL E” Q NUMERO 
| DA SUA OFCAO" ss TNFUT O 

50 “x PROLOGICA x 300 IF Quit OR OX9THENGOTOZ9O 

318 ON O GOSUE 330,590.770,93B+1 
um “x CP-LOB ES 170, 1420,1530+1730, 1480 

de GOTOLBA 
SO CERXKXKANRKKKR MINDE DE 3940 CLS | 

340 PRINTGIZ,"TNCLUSAD” 
08 H=B: J=83 L=8 350 PRINTGSA, "CODIGO"; = INFUT E 
70 B=0:Y=0:T=0 268 TF E=GTHENRETURN 
90 CLEAR 10000 370 IF E=100THENGOTOS4O 
78 DIM CcinB) 380 PRINTE6L, "NOME"; s INFUTNS (E) 
100 DIM N$&cI1AB) 390 ITELENÇNS CE) )2=30THENFRINT, STR 
HAM, DEM DSCi00) ING$ (LEN(NS (E) )+" "):GOSUESSA:SO 
l2t DIM DEcCIVA) TO33A 
log DIM ES(IBO) LOM TEN$ÇE)="“"THENSSO 
148 DIM ESciOB) 410 FRINTGL28, "FONE"; ; INFUTTSCE) 
156 DIM 0$(100) 420 PRINTOLSA, “ANTV. ss INFUTDOSCE 
160 DIM IT$cçI100) ) 
1720 DIM Cáciga) 438 PRINTOLPA,>NEND." ss INFUTES CE) 
188 CLS 4ug IFLENÇESCE))>30THENFRINT.STR 
198 PRINTOLS, "AGENDA! ING$(LENÇES (E) 9," "o: GOSUESSO:GO 
BB FRINTOG6U4rS,» "<LI> INCLUSHO! TOS3A 
cit PRINTOAS6+S, "ego CONSULTA" 430 PRINTOGZSSO- "BAIRRO! ss: INFUTESC 
coB PRINTGLZA+ro, "<3> EXCLUSAO! E) 
220 PRINTOL6O+rs, "ay ALTERAÇÃO! USO TELENÇES CE9)220THENFRINT,;STR 
au PRINTGIDErS, "S> ANTVERSARIA ING$S(LENÇES CE), "os GOSUESSG: 60 
NTES" TOS30 


20 PRINTeZAU+HO, 6 
TRADO" 


TOTFIL CADAS 


cól PRINTEESDSr6,"<47> SALVAR OS D E) 
ADOOS! 
2/0 PRINTGZSB+S, "LB LEITURA DOS 


DADOS" 





Epa 
SU T=T7+1 


470 PRINTeEZ88, "CEP": : INPUTOS CE) 
uam FPRINTEGSZO, "CIDADE" sz INFUTIS( 


49 PRINTESSE-"ESTADO! 2 INFUTCS( 
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SLB FPRINTOGU4ILA, "DIGITE «q FARA C 


ONTINUAR! 

deB AG=INKEYE: INPUTAG: IFRga q T 

HENGOTOIS0ELSESDO 

St RETURN 

4 CLS:PRINTOL9SE, PMAGENDA COMPLE 
TROSGFORL=1TOSH:NEXTLIZRETURN 

98 CLO:SFRINTOLPE+rS, PMAEREVITE POR 
FAVOR” 

268 SOUND Egb: 3: SOUND ZEg,3 

3/8 FORU=ITOLSOBENEXTY 

684 FPRINTOLPE+rS, STRINGSCAD,! Usa 

RETURN 

598 CLS 

608 FRINTELS»"CONSULTA” 

61ltg FRINTESE: "QUAL E” OQ NR. DO C€ 

ODIGO" ss INFUT E 

del) TF E=07THENRETURN 

650 IF E>L00THENGOTOZSO 


ó4t) PRINTASU, "NOME RUsNSÇE) 


630 PRINTELZE,"FONE Ros TSC 
460 PRINTOLSO, "ANTU., EA A DA dm 
á70 FRINTAIL9A» "END. :OrES(E 
s8a PRINTGZI36»"EHIRRO Use (E 
490 FRINTGRBS, "CER Cr OSÇE 
206 PFRINTEGSEO» "CIDADE RSRSRS 
ua PRINTOSSA+ "ESTADO ADE (da 


e dd PRINTONLS:; "QUER MAIS CONSULT 
Ho so/N>0s "INPUT R$ 

70 JERéG="SºTHENGOTOSPOELSEZUA 
ZU RETURN 

72980 CLS:PRINTELSErA, "CODIGO NEI 
CADASTRADO": SOUND Z2n,s 

7 61 FORW=1 701508: NEXTWs RE TURN 
278 CLS 

ZE PRINTOLZ, “EXCLUSAO! 

7948 PRINTOASE- "QUE CODIGO QUER EX 
CLUTR"s2sINFUT E 

Gay IF E=B0THENRETURN 

Bit NácEy="EXCLUTDO! 

Ban TESCE)="EXCLUTIDO! 

Bo Décky="EXCLUTDO” 

Bu EbcE)="EXCLUILDON 

834 Eb ÇE)="EXCLUIDO! 

864 ObcE)="EXCLUTDOM 

BZ IEcky="EXCLUTDO! 

Sa Coetiy="EXCLUTDO! 

B94 T=7T-1 

900 PRINTOLLA, "DESEJA EXCLULR MA 
IS ALGUM CODIGO «S/N>"s 2 INFUTR$ 
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91 LIFR$="SUTHENDZODELSEGEL 

Galid RETURN 

va Cl.s 

94 FPRINTOLL, PALTERAÇÃO! 

958 PRINTOSE>» "QUE CODIGO QUER fil. 

TERAR" sa INPUT & 

Poti IF E=g THEN RETURN 

?7t) PRINTESU, "QUAL O CAMPO O SER 
ALTERADO PM 

veta PRINTAG&, "alo NOME! 

920 FPRINTOlAZB, Cas TELEFONE! 
lOMA. FRINTELSA, "ido DATA DE ANTU 
ERSARIO" 

IL PRINTELGE, "Pago ENDERECO! 
Log FRINTOREM, "Lo BAIRRO! 

IgA PRINTAZIO."a&> CER 

LOU PRINTORBO, co CIDADE 

1030 FPRINTOSAM, "<B> ESTADO! 

Ln6 FPRINTESSLU.VDIGITE O NRaCOMH 

ESFONDENTE" = 2INEUT N 

low) dr Ni OK N=&S THENRETURN 
lasa ON N GOTO 1A90,.1100,1110,11 
cArlisA, il, ils, LILA 

190 PRINTENUG, CNOME su INFUTNS CE 
PJERETURN 

litgt PRINTQUUB, "FONE": 2 INFPUTTS CI: 
) E RETURN 

Ill ERINTA4UB, PANTVL! 2 INFUTOSC 
E) RETURN 

11 FRINTQOUUB,MEND. "su TNFUTES CI 
PJ3RETURN 

11580 PRINTQU4U4S, CEATRRO" ss INFUTES 
(hi) RETURN 

Li4A PRINTGUUB, CER! sa INFUTOS CE 
“RETURN 

11380 FRINTEO4U4S>"CIDADE"s: TNFUTTS 
(E) RETURN 

L1Lótg PRINTE44A,MESTADO! va TNEUTOS 
(E) sRE TURN 

11728 CLS 

List RESTORE 

119% PRINTOL,ANTVERSARIANTES DO 
ME 

Ll:00 FRINTASA» "DIGITE O MES À CO 
NSULTAR 2º 

lalty PRINTO6U;VMES Ps INFUT DIS 


1220 IF D1l$=""THEN RETURN 

1230 READ A$-ALS 

1240 LFA$=DI$ OR VALÇALS)=VAL(DI 
$) THEN1370:ELSE1238 

1250 DATA JENEIRO, "BI", FEVEREIRO 
A MARCO, "3, ABRIL, "4 MALO 5 
“+ JUNHO» "6", JULHO, “7º AGOSTO, “B 
| SETEMBRO» “9º, OUTUBRO, “10, NOVEM 
BRO, "11, DEZEMBRO, "J 2" 

1260 FRINTOS6» "NOME SU PM$CÃ) 
1270 PRINTQLGO, "FONE ur TALE) 


7 


lago FPRINTGIPA,PANTV. Us DeÇE) 
LZ90 FRINTGRAM» "END, FUSES(E) 


1306 FRINTOZSSB, "BAIRRO ss EóçE) 


1/18 NEXTE 

1720 CLOSER-LZRETURN 

17/50 CLS:B= 

17248 PRINTGLEZS, "PARA CARREGAR LT 
ENS DA FITA 


13510 FRINTOSZO, "CEP Re CE) 
lScy FRINTESSA> "CIDADE s!sIGCB) 


1538 


1344 


PRINTEGZAL, "ESTADO  sPsCêck) 


PRINTQUUS, "DIGITE «g> P/CON 


TINUARO 3 INPUT Z& 


1.358 
1360 
1378 
Lob 


IF Z&<>"GUTHENISHO 
IF 0:53 THEN RETURN 
FORE=1TOLGA 


TE VALÇAILS)=VALCMIDS (DE CE)» 


ra) ) THEN GOSUE 1x60 


159 
1426 
Luta 
1426 
11456 
LULU 


TIIS teme 


1436 


NEXT E 

GOTO 1176 

RETURN 

is 

FPRINTOS. "TOTAL CADASTRADO! 

PRINTOIL9E: "NUMERO DE ElEMEN 
Pu T 

PRINTO4US, "PRESSIONE «ENTER 


> FARA VOLTAR AQ MENUS": 


IL &t 
14726 
Lug 
149% 
13064 


ZR=INKEYESINPUT Z& 

IF Zê="" THEN RETURN 

CLS 

PRINTeGS, "SAIR DO PROGRAMA! 
PRINTGL9E> "DESEJA SAIR DO PF 


ROGRAMA «0/N&"s 


1516 
134% 
D 

19538 
1348 
3 NA 
1358 
bi 


1365 


INFUT R$ 
IF R$="Nº"THENRETURN ELSE EN 


CLS 

PRINTQGLEZS, "FARA SALVAR ITEN 
FITA" 

PRINTEGLAA."EROSICIÓONE HA FITA 


PRINTEIL9E+"FRESSIONE FAYE 


RECORD" 


13708 


PRINTOgaM, "PRESSIONE cENTER 


* QUANDO PRONTO!» 


IS 
ERAS 
tólia 
Lá 
1698) 
Lott 
Ló og 
16640 
1671 
LáBt 
Ló ia 
1748 


INFUT 

OPEN “QU, 8-1, "AGENDA" 
FOR E=1TOlLAHA 
PRINTH-LoNdcko 
FRINTH-1, TÃCE) 
PRINTH-L Dic) 
PRINTH-L-EbBcE) 
PRINTH-L BCE) 
PRINTH-1,08 (E) 
FRINTR-L. Ibdcki) 
FRINTH-1,C&CE) 
PRIENTH=L, E 


1758 FRINTOL6O,"RETROCEDA A FIT 
H 


17260 PRINTGL9Z, "PRESSIONE PLAY! 


177 FRINTOZAU»"FRESALONE. 


ZENTER 


* SUANDO FRONTOOs 


1780 
188) 
1816 
18% 
183 
180) 
LB38 
1840 
1876 
1886) 
1890 
19H 
1914 
192,4 
1934 
) 


Ei) 
19d 
E) 
19268 
Et) 
19278 
E) 
1984 
E) 
1998 
E) 
é (d (365 
E ) 
é E) 1. (9 
“tio 
cs EI é) 


19 


ENFUT 
ORENVTO,H-1 o MAGENDE” 
FOR E=1TOLAR 

IF EDEcC-isTHENGOSA 
INFUTE-L, N$ÇE) 
ENFUTH-L, TócE) 
ENFUTE-L. DCE) 
INFUTH-1L, ES CE) 
INFUTH-L o, Eb CE) 
INFUTH-1. OB CE) 
INFUTH-I, LbCE) 
INFUTH-1.CócE) 
ENFUTHR-I E 

tio 

FRINTOASS, "NOME ne NG 
PRINTOLSO, “EQNE Ma Th 


PRINTEL9E, “ANTV. ss DEC 
PRINTEGZEM, “END. Ur ES. 
PRINTOZES, “EATRRO es EG ( 


FRINTOSZO, "CER ss i)d 


FRINTOSSZ»"CIDADE  s Id 


PRINTESSU4>- "ESTADO RA e e 


PRINTEDA» "CODIGO si 
NEXT = 
CLOSEHR-1ZRE TURN 
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